home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / Shared.Cst / 00142_qTidle.ls < prev    next >
Encoding:
Text File  |  1999-10-10  |  1.2 KB  |  57 lines
  1. on qTidle
  2.   -- Dir passes control here when it knows of no other event
  3.   
  4.   -- Here are some idle event notes:
  5.   -- o This gets called before the QT movie starts, with time ~671-709???
  6.   -- o This gets called when the QT movie ends and loops until it is stopped
  7.   
  8.   global DEBUG
  9.   global DEBUG_IDLE
  10.   
  11.   global gPlayBtnSprite
  12.   
  13.   set DEBUG = 0
  14.   set DEBUG_IDLE = 0
  15.   
  16.   -- Move the thumb
  17.   if (gPlayBtnSprite) then
  18.     moveThumb
  19.   end if
  20.   
  21. end qTidle
  22.  
  23. ------------------------------------------------------------------------
  24. on valueTester tBack
  25.   
  26.   global DEBUG
  27.   
  28.   if DEBUG then put "-- Value tester:"
  29.   if        floatP(tBack) then
  30.     if DEBUG then
  31.       put "float:"  && tBack
  32.     end if
  33.   else if integerP(tBack) then
  34.     if DEBUG then
  35.       put "int:"    && tBack
  36.     end if
  37.   else if  objectP(tBack) then
  38.     if DEBUG then
  39.       put "object:" && tBack
  40.     end if
  41.   else if  stringP(tBack) then
  42.     if DEBUG then
  43.       put "string:" && tBack
  44.     end if
  45.   else if  symbolP(tBack) then
  46.     if DEBUG then
  47.       put "symbol:" && tBack
  48.     end if
  49.   else
  50.     if DEBUG then
  51.       put "unidentified:" && tBack
  52.     end if
  53.   end if
  54.   -- if DEBUG then put "-- Value tester end --"
  55. end valueTester
  56.  
  57.